home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / hcristau.sit / HCRistau Font / background_2740.txt < prev    next >
Text File  |  1988-02-14  |  3KB  |  133 lines
  1. -- background: 2740 from stack: in
  2. -- bmap block id: 3622
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on OpenStack
  8.   hide menubar
  9. end OpenStack
  10.  
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 00
  15. -- high flags: 2004
  16. -- rect: left=61 top=0 right=144 bottom=207
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 201
  21. -- text size: 10
  22. -- style flags: 0
  23. -- line height: 11
  24. -- part name: 
  25.  
  26.  
  27. -- part 3 (field)
  28. -- low flags: 00
  29. -- high flags: 2004
  30. -- rect: left=141 top=92 right=236 bottom=287
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 201
  35. -- text size: 10
  36. -- style flags: 0
  37. -- line height: 11
  38. -- part name: 
  39.  
  40.  
  41. -- part 4 (field)
  42. -- low flags: 81
  43. -- high flags: 2007
  44. -- rect: left=247 top=151 right=342 bottom=453
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 201
  49. -- text size: 10
  50. -- style flags: 0
  51. -- line height: 13
  52. -- part name: info
  53. ----- HyperTalk script -----
  54. on MouseUp
  55.   hide bkgnd field "info"
  56.   show bkgnd button "?"
  57. end MouseUp
  58.  
  59.  
  60.  
  61. -- part 5 (button)
  62. -- low flags: 00
  63. -- high flags: A004
  64. -- rect: left=291 top=155 right=176 bottom=314
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: ?
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   global origin
  76.   get the loc of bkgnd button "?"
  77.   put it into origin
  78.   put item 1 of it into orH
  79.   repeat with x = 1 to 10
  80.     get the loc of bkgnd button "?"
  81.     put x * 5 + orH into new
  82.     put new into item 1 of it
  83.     set the loc of bkgnd button "?" to it
  84.   end repeat
  85.   SHOW BKGND FIELD "FLICK"
  86.   GLOBAL STORAGE
  87.   REPEAT FOR 3
  88.     REPEAT WITH X = 1 TO 10
  89.       GET ITEM X OF STORAGE
  90.       PUT IT INTO LINE 1 OF BKGND FIELD "FLICK"
  91.     END REPEAT
  92.   END REPEAT
  93.   put empty into bkgnd field "flick"
  94.   HIDE BKGND FIELD "FLICK"
  95.   show bkgnd field "info"
  96.   hide bkgnd button "?"
  97.   set the loc of bkgnd button "?" to origin
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 6 (field)
  103. -- low flags: 80
  104. -- high flags: 0004
  105. -- rect: left=238 top=182 right=325 bottom=387
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 210
  110. -- text size: 96
  111. -- style flags: 0
  112. -- line height: 128
  113. -- part name: flick
  114.  
  115.  
  116. -- part 7 (button)
  117. -- low flags: 00
  118. -- high flags: 2000
  119. -- rect: left=62 top=155 right=177 bottom=85
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Go Home
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   go home
  131. end mouseUp
  132.  
  133.